(rmail-expunge): Update summary buffer even if NO-SHOW.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a5dc10cf4f1af799ef1b3bcd1080bc92f6cfbe3e..f39f7bf4636d8d5cdac39456110dfc19301f65cb 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3265,9 +3265,15 @@ See also user-option `rmail-confirm-expunge'."
   (interactive)
   (when (rmail-expunge-confirmed)
     (let ((was-deleted (rmail-message-deleted-p rmail-current-message))
-         (was-swapped (rmail-buffers-swapped-p)))
+         (was-swapped (rmail-buffers-swapped-p))
+         (total rmail-total-messages))
       (rmail-only-expunge t)
-      (unless dont-show
+      (if dont-show
+         ;; Do update the summary buffer, if any.
+         (when (rmail-summary-exists)
+           (with-current-buffer rmail-summary-buffer
+             (let ((rmail-total-messages total))
+               (rmail-update-summary))))
        (if (rmail-summary-exists)
            (rmail-select-summary (rmail-update-summary))
          ;; If we expunged the current message, a new one is current now,